home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / SortBlk.bed < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.3 KB  |  68 lines
  1. /*
  2. ** $VER: SortBlk.bed 1.0 (03.01.96)
  3. **
  4. ** Sort the currently selected block, or the whole document if no block
  5. ** is selected.
  6. **
  7. ** Written by Gerald R. Duprey Jr
  8. ** Modified by Martin Taillefer
  9. ** Modified by Marco Negri
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. SetDisplayLock ON
  15. SetInputLock ON
  16.  
  17. GetBlkInfo
  18. PARSE VAR RESULT mode .
  19.  
  20. TaskID = Pragma('ID')
  21.  
  22. SetStatusBar "Sorting..."
  23.  
  24. IF mode = ON THEN DO
  25.  
  26.     SaveClip QUIET NOICON NOBACKUP 'T:OldClip-' || TaskID
  27.  
  28.     CutBlk
  29.     SaveClip QUIET NOICON NOBACKUP 'T:SortBlk_pre-' || TaskID
  30.     ADDRESS COMMAND 'C:Sort T:SortBlk_pre-' || TaskID || ' T:SortBlk_post-' || TaskID
  31.     OpenClip "T:SortBlk_post-" || TaskID
  32.  
  33.     MarkBlk
  34.     PasteClip
  35.  
  36.     OpenClip 'T:OldClip-' || TaskID
  37.  
  38. END; ELSE DO
  39.     GetCursorPos
  40.     PARSE VAR RESULT y x .
  41.  
  42.     GetFilePath
  43.     path = RESULT
  44.  
  45.     SaveFileAs QUIET NOICON NOBACKUP 'T:SortBlk_pre-' || TaskID
  46.     ADDRESS COMMAND 'C:Sort T:SortBlk_pre-' || TaskID || ' T:SortBlk_post-' || TaskID
  47.     OpenFile QUIET 'T:SortBlk_post-' || TaskID
  48.     SetFilePath path
  49.  
  50.     Insert '" "'    /* cause the modified flag to be set */
  51.     MoveLeft
  52.     Delete
  53.  
  54.     Move y x
  55. END
  56.  
  57. IF ~Show(L,'rexxsupport.library') THEN DO
  58.     AddLib('rexxsupport.library',0,-30)
  59. END;
  60.  
  61. Delete("T:SortBlk_pre-" || TaskID)
  62. Delete("T:SortBlk_post-" || TaskID)
  63. Delete("T:OldClip-" || TaskID)
  64.  
  65.  
  66. SetDisplayLock OFF
  67. SetInputLock OFF
  68.